set hasPict to (aPict as string) is not equal to "no picture"
if hasPict then
set aPat to background pattern
set picture file of monitor 1 to no picture
Appearance
Desktop Pictures can conflict with Slide Show. Please use the Appearance control panel to remove any picture.
Your current Desktop Picture conflicted with Slide Show and has been disabled. Use the Appearance control panel when you wish to restore this picture.
set desktop pattern to aPat
end if
quit
return hasPict
end tell
tell application "Desktop Pictures"
set aPict to (get desktop picture name for screen 0)
set hasPict to (aPict as string) is not equal to ""
if hasPict then
set aPat to (get desktop pattern)
clear desktop picture
Desktop Pictures
Desktop Pictures can conflict with Slide Show. Please use the Desktop Pictures control panel to remove any picture.
Your current Desktop Picture conflicted with Slide Show and has been disabled. Use the Desktop Pictures control panel when you wish to restore this picture.